From 264a0a0f092d349eed60ecc86da7ca8f391ade23 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 17 May 2001 11:52:03 +0000 Subject: [PATCH] (fancy-splash-screens): Ignore events on the mode-line. --- lisp/startup.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 4006ca70092..84266811be1 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1181,11 +1181,12 @@ where FACE is a valid face specification, as it can be used with (use-local-map map) (define-key map [t] 'fancy-splash-default-action) (define-key map [mouse-movement] 'ignore) + (define-key map [mode-line t] 'ignore) (setq cursor-type nil display-hourglass nil buffer-undo-list t - mode-line-format - (propertize "---- %b %-" 'face '(:weight bold)) + mode-line-format (propertize "---- %b %-" + 'face '(:weight bold)) fancy-splash-stop-time (+ (float-time) (max 60 fancy-splash-max-time)) timer (run-with-timer 0 fancy-splash-delay -- 2.30.2